* Replication Code for Eshbaugh-Soha, Matthew, and Paul M. Collins, Jr. N.d. "Presidential References to Executive Actions in Public Comments on Supreme Court Cases." Political Research Quarterly forthcoming. *

* Figure 1 - see Excel File "Figures 1 & 2 Data" *

* Figure 2 - see Excel File "Figures 1 & 2 Data" *

* Call in Data *
use "...Eshbaugh Soha and Collins Data.dta"

* Figure 3 *
probit unilateral jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval csiCh reelect pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jrb, vce(robust)
esttab, se ar2 label nogaps nolines star(* 0.1 ** 0.02 *** 0.002) b(a2) se(a2)
estat class
* plot marginal effects *
margins, dydx(jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval csiCh reelect  pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jrb) post
coefplot, drop(_cons) xline(0) levels (90) xlabel(-.7(.1).7) title("Marginal Effects") ylabel(,labsize(smallmedium)) xlabel(,labsize(smallmedium)) ylab(,labsize(small)) note("            N = 1,207      Percent Correctly Predicted = 79.9      Pseudo R2 = 0.12")

* Appendix Table 1 *
probit unilateral jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval csiCh reelect pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jrb, vce(robust)
esttab, se ar2 label nogaps nolines star(* 0.1 ** 0.02 *** 0.002) b(a2) se(a2)

* Footnote 14 *
* Excluding Case Salience from model *
probit unilateral jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval reelect pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jrb, vce(robust)

* Footnote 23 (correlations) *
probit unilateral jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval csiCh reelect pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jrb, vce(robust)
corr jcsdist prescasecongruence divided firstyearpartychange lastmonthpartychange speechmonths100 approval csiCh reelect pending jfk lbj rmn grf jec rwr ghwb wjc gwb bho djt jr if e(sample)
pwcorr jcsdist prescasecongruence if e(sample), sig

